
# ------------------------------------------------------------------------
function Load_Solution(ce::CE_Economy_M)
# ------------------------------------------------------------------------

# ------------------------------------------------------------------------
# INITIAL GUESS: LOAD RESULTS FROM CASE WITH CONSTANT TYPES
# ------------------------------------------------------------------------
if ce.model_Chatterjee==1 && ce.model_start==0 && ce.nz>2
      load_string  = "CE_model_Chatterjee_start.jld"
      #Value Fucntions
      ce.WI        = repeat(load(string("model_data/",load_string), "WI")[:,:,2], outer=[1,1,ce.nz]);
      ce.WId       = repeat(load(string("model_data/",load_string), "WId")[:,:,2], outer=[1,1,ce.nz]);
      ce.WIr       = repeat(load(string("model_data/",load_string), "WIr")[:,:,2], outer=[1,1,ce.nz]);
      ce.QI        = repeat(load(string("model_data/",load_string), "QI")[:,:,2], outer=[1,1,ce.nz]);
      ce.WP        = repeat(load(string("model_data/",load_string), "WP")[:,:,2], outer=[1,1,ce.nz]);
      ce.WPd       = repeat(load(string("model_data/",load_string), "WPd")[:,:,2], outer=[1,1,ce.nz]);
      ce.WPr       = repeat(load(string("model_data/",load_string), "WPr")[:,:,2], outer=[1,1,ce.nz]);
      ce.QP        = repeat(load(string("model_data/",load_string), "QP")[:,:,2], outer=[1,1,ce.nz]);
      #Prices & Policies
      ce.q_mat     = repeat(load(string("model_data/",load_string), "q_mat")[:,:,2], outer=[1,1,ce.nz]);
      ce.πpol      = repeat(load(string("model_data/",load_string), "πpol")[:,:,1], outer=[1,1,ce.nz]);  
      ce.bpI       = repeat(load(string("model_data/",load_string), "bpI")[:,:,2], outer=[1,1,ce.nz]);
      ce.bpP       = repeat(load(string("model_data/",load_string), "bpP")[:,:,2], outer=[1,1,ce.nz]);
      ce.default_I = repeat(load(string("model_data/",load_string), "default_I")[:,:,2], outer=[1,1,ce.nz]);
      ce.default_P = repeat(load(string("model_data/",load_string), "default_P")[:,:,2], outer=[1,1,ce.nz]);
      #Conjectures about policies
      ce.default_I_bel = repeat(load(string("model_data/",load_string), "default_I_bel")[:,:,2], outer=[1,1,ce.nz]);
      ce.default_P_bel = repeat(load(string("model_data/",load_string), "default_P_bel")[:,:,2], outer=[1,1,ce.nz]);
      ce.Π_exp         = repeat(load(string("model_data/",load_string), "Π_exp")[:,:,1], outer=[1,1,ce.nz]);  
end
# ------------------------------------------------------------------------


# ------------------------------------------------------------------------
#LOAD PREVIOUS GUESS
# ------------------------------------------------------------------------
if ce.model_start==1

        load_string ="CE_model_start.jld"
        if length(ce.z_grid)==2
        load_string ="CE_model_Chatterjee_start.jld"
        end
          #Value Functions
          ce.WI        = load(string("model_data/",load_string), "WI");
          ce.WId       = load(string("model_data/",load_string), "WId");
          ce.WIr       = load(string("model_data/",load_string), "WIr");
          ce.QI        = load(string("model_data/",load_string), "QI");
          ce.WP        = load(string("model_data/",load_string), "WP");
          ce.WPd       = load(string("model_data/",load_string), "WPd");
          ce.WPr       = load(string("model_data/",load_string), "WPr");
          ce.QP        = load(string("model_data/",load_string), "QP");
          #Prices & Policies
          ce.q_mat     = load(string("model_data/",load_string), "q_mat");
          ce.πpol      = load(string("model_data/",load_string), "πpol");
          ce.bpI       = load(string("model_data/",load_string), "bpI");
          ce.bpP       = load(string("model_data/",load_string), "bpP");
          ce.default_I = load(string("model_data/",load_string), "default_I");
          ce.default_P = load(string("model_data/",load_string), "default_P");
          #Conjectures about policies
          ce.default_I_bel = load(string("model_data/",load_string), "default_I_bel");
          ce.default_P_bel = load(string("model_data/",load_string), "default_P_bel");
          ce.Π_exp         = load(string("model_data/",load_string), "Π_exp");
end
# ------------------------------------------------------------------------


Void
end
# ------------------------------------------------------------------------
